home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / icsources.lha / PROGRAMS / SMALL FULL SCREEN SCROLL < prev    next >
Encoding:
Text File  |  1980-12-27  |  19.7 KB  |  718 lines
  1.      section ax,code_c
  2.     opt c-,d+,w-,o+    
  3.     
  4.     include 'df2:insert/custom registers'
  5.     
  6. badd=(320*256)/8
  7.  
  8.     lea $dff000,a6
  9.     move.w #$87e0,dmacon(a6)
  10.     jsr mt_init
  11.     move.l #table,a3
  12.     move.l a3,baz
  13.     jsr cop_init
  14.      move.l $6c,oldirq
  15.      move.l #newirq,$6c
  16. mse:
  17.      cmp.b #$f0,$dff006
  18.      bne mse
  19. zog:
  20.      btst #6,$bfe001
  21.     bne mse
  22.      jsr mt_end
  23.      move.l oldirq,$6c
  24.      move.l copaddr,a0
  25.      move.l oldcop,(a0)
  26. nolib:    
  27.      rts    
  28. newirq:  
  29.     movem.l d0-d7/a0-a6,$75000
  30.     cmpi.w #$0000,boh
  31.     bne whodo
  32.     move.w #$00ff,boh
  33.     jsr bobsetup
  34.     jsr printy
  35.     jmp who
  36. whodo:    subi.w #$0011,boh
  37. who:    jsr mt_music
  38.     movem.l $75000,d0-d7/a0-a6
  39.     dc.w $4ef9
  40.     
  41. oldirq: dc.l 0
  42. countx: dc.b 0
  43. baz:    dc.l 0
  44. yaz:    dc.b 0
  45. gook:    dc.b 0
  46. ook:    dc.b 0
  47.     even
  48.  
  49. cop_init:
  50.      lea screen,a0
  51.      move.l a0,d0
  52.      move.w d0,lo1
  53.      swap d0
  54.      move.w d0,hi1
  55.      lea screen+badd,a0
  56.      move.l a0,d0
  57.      move.w d0,lo2
  58.      swap d0
  59.      move.w d0,hi2
  60.      lea screen+badd*2,a0
  61.      move.l a0,d0
  62.      move.w d0,lo3
  63.      swap d0
  64.      move.w d0,hi3
  65.      lea screen+badd*3,a0
  66.      move.l a0,d0
  67.      move.w d0,lo4
  68.      swap d0
  69.      move.w d0,hi4
  70.      lea screen+badd*4,a0
  71.      move.l a0,d0
  72.      move.w d0,lo5
  73.      swap d0
  74.      move.w d0,hi5
  75.      moveq #$00,d0
  76.      lea grafname,a1
  77.      move.l $4,a6
  78.      jsr -132(A6)
  79.      move.l $4,A6
  80.      jsr -408(a6)
  81.      tst d0
  82.      beq nolib
  83.      move.l d0,grafbase
  84.      move.l d0,a6
  85.      add.l #$32,d0
  86.      move.l d0,a0
  87.      move.l a0,copaddr
  88.      move.l (a0),oldcop
  89.      move.l #newcop,(a0)
  90.      rts
  91.  
  92.     even
  93.       
  94. grafname: dc.b "graphics.library",0
  95. grafbase: dc.l 0
  96. oldcop:   dc.l 0
  97. copaddr:  dc.l 0
  98.  
  99.     even
  100.  
  101. newcop:     dc.w $0100,$1200
  102.       dc.w $0102
  103. boh:      dc.w $00ff
  104.      dc.w $0120
  105. sp1l:     dc.w $0000,$0122
  106. sp1h:      dc.w $0000 
  107.      dc.w $0124
  108. sp2l:     dc.w $0000,$0126
  109. sp2h:      dc.w $0000 
  110.      dc.w $0128
  111. sp3l:     dc.w $0000,$012a
  112. sp3h:      dc.w $0000 
  113.      dc.w $012c
  114. sp4l:     dc.w $0000,$012e
  115. sp4h:      dc.w $0000
  116.      dc.w $0130
  117. sp5l:     dc.w $0000,$132
  118. sp5h:      dc.w $0000
  119.  
  120.  scr:       dc.w $2001,$fffe
  121.       dc.w $00e0
  122.  hi1:     dc.w $0000
  123.      dc.w $00e2
  124.  lo1:     dc.w $0000     
  125.      dc.w $00e4
  126.  hi2:     dc.w $0000
  127.      dc.w $00e6
  128.  lo2:     dc.w $0000 
  129.      dc.w $00e8
  130.  hi3:     dc.w $0000
  131.      dc.w $00ea
  132.  lo3:     dc.w $0000 
  133.      dc.w $00ec
  134.  hi4:     dc.w $0000
  135.      dc.w $00ee
  136.  lo4:     dc.w $0000 
  137.      dc.w $00f0
  138.  hi5:     dc.w $0000
  139.      dc.w $00f2
  140.  lo5:     dc.w $0000
  141.          dc.w $0108,8
  142.          dc.w $010a,8
  143.          dc.w $182,$fff
  144.          dc.w $008e,$3021 
  145.      dc.w $0090,$30f1
  146.      dc.w $0092,$0020
  147.      dc.w $0094,$00d8
  148.      ;dc.w $0108,$0008
  149.      dc.w $6001,$fffe
  150.          dc.w $0108,-84    
  151.     
  152.          dc.w $180,$000,$182,$000,$184,$fdb,$186,$db9
  153.      dc.w $188,$c97,$18a,$a75,$18c,$853,$18e,$033,$190,$c60
  154.      dc.w $192,$ba5,$194,$962,$196,$530,$198,$db4,$19a,$558
  155.      dc.w $19c,$447,$19e,$336,$1a0,$a40,$1a2,$f44,$1a4,$b00
  156.      dc.w $1a6,$222,$1a8,$333,$1aa,$444,$1ac,$555,$1ae,$666
  157.      dc.w $1b0,$777,$1b2,$888,$1b4,$999,$1b6,$aaa,$1b8,$ccc
  158.      dc.w $1ba,$ddd,$1bc,$eee,$1be,$fff
  159.          dc.w $5001,$fffe
  160.      dc.w $0182,$0fff
  161.      dc.w $0180,$0006
  162.      dc.w $7001,$fffe
  163.      dc.w $0100,$0000
  164.      dc.w $0180,$0000
  165.      dc.w $ffff,$fffe
  166.      
  167.      even
  168.  
  169. picdata:
  170.      incbin "df2:graphics/bbc.chrset.raw"
  171.  
  172. screen:
  173.      ds.b 1*badd
  174.      
  175.      
  176. bobsetup:
  177.      lea $dff000,a6
  178.      move.w #$09f0,bltcon0(a6)
  179.      clr.w bltcon1(a6)
  180.      clr.w bltamod(a6)
  181.      move.w #56-50,bltdmod(a6)             ;Destination Modulo
  182.      move.w #56-50,bltamod(a6)             ;Source Modulo (Scr Width - bob width)
  183.      move.l #screen-2+(56*40),bltdpt(a6)   ;Destination Start
  184.      move.l #screen+(56*40),bltapt(a6)     ;Source Start
  185.      move.w #%0000001000011001,bltsize(a6) ;Size (Lo 6 Bits Horiz)    
  186.      rts
  187.  
  188. printy:
  189.      move.l baz,a3
  190.      move.b (a3),yaz
  191.      move.b (a3)+,ook
  192.      move.l a3,baz
  193.      cmpi.b #0,yaz
  194.      bne frek
  195.      move.l #table,a3
  196.      move.l a3,baz
  197.      jmp ik
  198. frek:
  199.      cmpi.b #65,yaz  ;A
  200.      bne char2
  201. char1:     
  202.      move.b picdata+320,screen+48+(56*40)
  203.      move.b picdata+360,screen+48+(56*41)
  204.      move.b picdata+400,screen+48+(56*42)
  205.      move.b picdata+440,screen+48+(56*43)
  206.      move.b picdata+480,screen+48+(56*44)
  207.      move.b picdata+520,screen+48+(56*45)
  208.      move.b picdata+560,screen+48+(56*46)
  209.      move.b picdata+600,screen+48+(56*47)
  210.      jmp ik
  211. char2:   
  212.      cmpi.b #66,yaz  ;B
  213.      bne char3
  214.       move.b picdata+320+1,screen+48+(56*40)
  215.      move.b picdata+360+1,screen+48+(56*41)
  216.      move.b picdata+400+1,screen+48+(56*42)
  217.      move.b picdata+440+1,screen+48+(56*43)
  218.      move.b picdata+480+1,screen+48+(56*44)
  219.      move.b picdata+520+1,screen+48+(56*45)
  220.      move.b picdata+560+1,screen+48+(56*46)
  221.      move.b picdata+600+1,screen+48+(56*47)
  222.      jmp ik
  223. char3:
  224.       cmpi.b #67,yaz  ;C
  225.      bne char4
  226.       move.b picdata+320+2,screen+48+(56*40)
  227.      move.b picdata+360+2,screen+48+(56*41)
  228.      move.b picdata+400+2,screen+48+(56*42)
  229.      move.b picdata+440+2,screen+48+(56*43)
  230.      move.b picdata+480+2,screen+48+(56*44)
  231.      move.b picdata+520+2,screen+48+(56*45)
  232.      move.b picdata+560+2,screen+48+(56*46)
  233.      move.b picdata+600+2,screen+48+(56*47)
  234.      jmp ik
  235. char4:
  236.       cmpi.b #68,yaz  ;D
  237.      bne char5
  238.       move.b picdata+320+3,screen+48+(56*40)
  239.      move.b picdata+360+3,screen+48+(56*41)
  240.      move.b picdata+400+3,screen+48+(56*42)
  241.      move.b picdata+440+3,screen+48+(56*43)
  242.      move.b picdata+480+3,screen+48+(56*44)
  243.      move.b picdata+520+3,screen+48+(56*45)
  244.      move.b picdata+560+3,screen+48+(56*46)
  245.      move.b picdata+600+3,screen+48+(56*47)
  246.      jmp ik
  247. char5:
  248.      cmpi.b #69,yaz  ;E
  249.      bne char6
  250.       move.b picdata+320+4,screen+48+(56*40)
  251.      move.b picdata+360+4,screen+48+(56*41)
  252.      move.b picdata+400+4,screen+48+(56*42)
  253.      move.b picdata+440+4,screen+48+(56*43)
  254.      move.b picdata+480+4,screen+48+(56*44)
  255.      move.b picdata+520+4,screen+48+(56*45)
  256.      move.b picdata+560+4,screen+48+(56*46)
  257.      move.b picdata+600+4,screen+48+(56*47)
  258.      jmp ik
  259. char6:
  260.       cmpi.b #70,yaz  ;F
  261.      bne char7
  262.       move.b picdata+320+5,screen+48+(56*40)
  263.      move.b picdata+360+5,screen+48+(56*41)
  264.      move.b picdata+400+5,screen+48+(56*42)
  265.      move.b picdata+440+5,screen+48+(56*43)
  266.      move.b picdata+480+5,screen+48+(56*44)
  267.      move.b picdata+520+5,screen+48+(56*45)
  268.      move.b picdata+560+5,screen+48+(56*46)
  269.      move.b picdata+600+5,screen+48+(56*47)
  270.      jmp ik
  271. char7:    
  272.      cmpi.b #71,yaz  ;G
  273.      bne char8
  274.       move.b picdata+320+6,screen+48+(56*40)
  275.      move.b picdata+360+6,screen+48+(56*41)
  276.      move.b picdata+400+6,screen+48+(56*42)
  277.      move.b picdata+440+6,screen+48+(56*43)
  278.      move.b picdata+480+6,screen+48+(56*44)
  279.      move.b picdata+520+6,screen+48+(56*45)
  280.      move.b picdata+560+6,screen+48+(56*46)
  281.      move.b picdata+600+6,screen+48+(56*47)
  282.      jmp ik 
  283. char8:
  284.      cmpi.b #72,yaz  ;H
  285.      bne char9
  286.       move.b picdata+320+7,screen+48+(56*40)
  287.      move.b picdata+360+7,screen+48+(56*41)
  288.      move.b picdata+400+7,screen+48+(56*42)
  289.      move.b picdata+440+7,screen+48+(56*43)
  290.      move.b picdata+480+7,screen+48+(56*44)
  291.      move.b picdata+520+7,screen+48+(56*45)
  292.      move.b picdata+560+7,screen+48+(56*46)
  293.      move.b picdata+600+7,screen+48+(56*47)
  294.      jmp ik 
  295. char9:
  296.      cmpi.b #73,yaz  ;I
  297.      bne char10
  298.       move.b picdata+320+8,screen+48+(56*40)
  299.      move.b picdata+360+8,screen+48+(56*41)
  300.      move.b picdata+400+8,screen+48+(56*42)
  301.      move.b picdata+440+8,screen+48+(56*43)
  302.      move.b picdata+480+8,screen+48+(56*44)
  303.      move.b picdata+520+8,screen+48+(56*45)
  304.      move.b picdata+560+8,screen+48+(56*46)
  305.      move.b picdata+600+8,screen+48+(56*47)
  306.      jmp ik
  307. char10:
  308.      cmpi.b #74,yaz  ;J
  309.      bne char11
  310.       move.b picdata+320+9,screen+48+(56*40)
  311.      move.b picdata+360+9,screen+48+(56*41)
  312.      move.b picdata+400+9,screen+48+(56*42)
  313.      move.b picdata+440+9,screen+48+(56*43)
  314.      move.b picdata+480+9,screen+48+(56*44)
  315.      move.b picdata+520+9,screen+48+(56*45)
  316.      move.b picdata+560+9,screen+48+(56*46)
  317.      move.b picdata+600+9,screen+48+(56*47)
  318.      jmp ik
  319. char11:
  320.      cmpi.b #75,yaz  ;K
  321.      bne char12
  322.       move.b picdata+320+10,screen+48+(56*40)
  323.      move.b picdata+360+10,screen+48+(56*41)
  324.      move.b picdata+400+10,screen+48+(56*42)
  325.      move.b picdata+440+10,screen+48+(56*43)
  326.      move.b picdata+480+10,screen+48+(56*44)
  327.      move.b picdata+520+10,screen+48+(56*45)
  328.      move.b picdata+560+10,screen+48+(56*46)
  329.      move.b picdata+600+10,screen+48+(56*47)
  330.      jmp ik
  331. char12:
  332.      cmpi.b #76,yaz  ;L
  333.      bne char13
  334.       move.b picdata+320+11,screen+48+(56*40)
  335.      move.b picdata+360+11,screen+48+(56*41)
  336.      move.b picdata+400+11,screen+48+(56*42)
  337.      move.b picdata+440+11,screen+48+(56*43)
  338.      move.b picdata+480+11,screen+48+(56*44)
  339.      move.b picdata+520+11,screen+48+(56*45)
  340.      move.b picdata+560+11,screen+48+(56*46)
  341.      move.b picdata+600+11,screen+48+(56*47)
  342.      jmp ik
  343. char13:
  344.      cmpi.b #77,yaz  ;M
  345.      bne char14
  346.       move.b picdata+320+12,screen+48+(56*40)
  347.      move.b picdata+360+12,screen+48+(56*41)
  348.      move.b picdata+400+12,screen+48+(56*42)
  349.      move.b picdata+440+12,screen+48+(56*43)
  350.      move.b picdata+480+12,screen+48+(56*44)
  351.      move.b picdata+520+12,screen+48+(56*45)
  352.      move.b picdata+560+12,screen+48+(56*46)
  353.      move.b picdata+600+12,screen+48+(56*47)
  354.      jmp ik
  355. char14:  
  356.      cmpi.b #78,yaz  ;N
  357.      bne char15
  358.       move.b picdata+320+13,screen+48+(56*40)
  359.      move.b picdata+360+13,screen+48+(56*41)
  360.      move.b picdata+400+13,screen+48+(56*42)
  361.      move.b picdata+440+13,screen+48+(56*43)
  362.      move.b picdata+480+13,screen+48+(56*44)
  363.      move.b picdata+520+13,screen+48+(56*45)
  364.      move.b picdata+560+13,screen+48+(56*46)
  365.      move.b picdata+600+13,screen+48+(56*47)
  366.      jmp ik
  367. char15:
  368.       cmpi.b #79,yaz  ;O
  369.      bne char16
  370.       move.b picdata+320+14,screen+48+(56*40)
  371.      move.b picdata+360+14,screen+48+(56*41)
  372.      move.b picdata+400+14,screen+48+(56*42)
  373.      move.b picdata+440+14,screen+48+(56*43)
  374.      move.b picdata+480+14,screen+48+(56*44)
  375.      move.b picdata+520+14,screen+48+(56*45)
  376.      move.b picdata+560+14,screen+48+(56*46)
  377.      move.b picdata+600+14,screen+48+(56*47)
  378.      jmp ik
  379. char16:
  380.      cmpi.b #80,yaz  ;P
  381.      bne char17
  382.       move.b picdata+320+15,screen+48+(56*40)
  383.      move.b picdata+360+15,screen+48+(56*41)
  384.      move.b picdata+400+15,screen+48+(56*42)
  385.      move.b picdata+440+15,screen+48+(56*43)
  386.      move.b picdata+480+15,screen+48+(56*44)
  387.      move.b picdata+520+15,screen+48+(56*45)
  388.      move.b picdata+560+15,screen+48+(56*46)
  389.      move.b picdata+600+15,screen+48+(56*47)
  390.      jmp ik
  391. char17:
  392.      cmpi.b #81,yaz  ;Q
  393.      bne char18
  394.       move.b picdata+320+16,screen+48+(56*40)
  395.      move.b picdata+360+16,screen+48+(56*41)
  396.      move.b picdata+400+16,screen+48+(56*42)
  397.      move.b picdata+440+16,screen+48+(56*43)
  398.      move.b picdata+480+16,screen+48+(56*44)
  399.      move.b picdata+520+16,screen+48+(56*45)
  400.      move.b picdata+560+16,screen+48+(56*46)
  401.      move.b picdata+600+16,screen+48+(56*47)
  402.      jmp ik
  403. char18:
  404.       cmpi.b #82,yaz  ;R
  405.      bne char19
  406.       move.b picdata+320+17,screen+48+(56*40)
  407.      move.b picdata+360+17,screen+48+(56*41)
  408.      move.b picdata+400+17,screen+48+(56*42)
  409.      move.b picdata+440+17,screen+48+(56*43)
  410.      move.b picdata+480+17,screen+48+(56*44)
  411.      move.b picdata+520+17,screen+48+(56*45)
  412.      move.b picdata+560+17,screen+48+(56*46)
  413.      move.b picdata+600+17,screen+48+(56*47)
  414.      jmp ik
  415. char19:
  416.      cmpi.b #83,yaz  ;S
  417.      bne char20
  418.       move.b picdata+320+18,screen+48+(56*40)
  419.      move.b picdata+360+18,screen+48+(56*41)
  420.      move.b picdata+400+18,screen+48+(56*42)
  421.      move.b picdata+440+18,screen+48+(56*43)
  422.      move.b picdata+480+18,screen+48+(56*44)
  423.      move.b picdata+520+18,screen+48+(56*45)
  424.      move.b picdata+560+18,screen+48+(56*46)
  425.      move.b picdata+600+18,screen+48+(56*47)
  426.      jmp ik
  427. char20:
  428.      cmpi.b #84,yaz  ;T
  429.      bne char21
  430.       move.b picdata+320+19,screen+48+(56*40)
  431.      move.b picdata+360+19,screen+48+(56*41)
  432.      move.b picdata+400+19,screen+48+(56*42)
  433.      move.b picdata+440+19,screen+48+(56*43)
  434.      move.b picdata+480+19,screen+48+(56*44)
  435.      move.b picdata+520+19,screen+48+(56*45)
  436.      move.b picdata+560+19,screen+48+(56*46)
  437.      move.b picdata+600+19,screen+48+(56*47)
  438.      jmp ik
  439. char21:
  440.      cmpi.b #85,yaz  ;U
  441.      bne char22
  442.       move.b picdata+320+20,screen+48+(56*40)
  443.      move.b picdata+360+20,screen+48+(56*41)
  444.      move.b picdata+400+20,screen+48+(56*42)
  445.      move.b picdata+440+20,screen+48+(56*43)
  446.      move.b picdata+480+20,screen+48+(56*44)
  447.      move.b picdata+520+20,screen+48+(56*45)
  448.      move.b picdata+560+20,screen+48+(56*46)
  449.      move.b picdata+600+20,screen+48+(56*47)
  450.      jmp ik
  451. char22:
  452.      cmpi.b #86,yaz  ;V
  453.      bne char23
  454.       move.b picdata+320+21,screen+48+(56*40)
  455.      move.b picdata+360+21,screen+48+(56*41)
  456.      move.b picdata+400+21,screen+48+(56*42)
  457.      move.b picdata+440+21,screen+48+(56*43)
  458.      move.b picdata+480+21,screen+48+(56*44)
  459.      move.b picdata+520+21,screen+48+(56*45)
  460.      move.b picdata+560+21,screen+48+(56*46)
  461.      move.b picdata+600+21,screen+48+(56*47)
  462.      jmp ik
  463. char23:
  464.      cmpi.b #87,yaz  ;W
  465.      bne char24
  466.       move.b picdata+320+22,screen+48+(56*40)
  467.      move.b picdata+360+22,screen+48+(56*41)
  468.      move.b picdata+400+22,screen+48+(56*42)
  469.      move.b picdata+440+22,screen+48+(56*43)
  470.      move.b picdata+480+22,screen+48+(56*44)
  471.      move.b picdata+520+22,screen+48+(56*45)
  472.      move.b picdata+560+22,screen+48+(56*46)
  473.      move.b picdata+600+22,screen+48+(56*47)
  474.      jmp ik
  475. char24:
  476.      cmpi.b #88,yaz  ;X
  477.      bne char25
  478.       move.b picdata+320+23,screen+48+(56*40)
  479.      move.b picdata+360+23,screen+48+(56*41)
  480.      move.b picdata+400+23,screen+48+(56*42)
  481.      move.b picdata+440+23,screen+48+(56*43)
  482.      move.b picdata+480+23,screen+48+(56*44)
  483.      move.b picdata+520+23,screen+48+(56*45)
  484.      move.b picdata+560+23,screen+48+(56*46)
  485.      move.b picdata+600+23,screen+48+(56*47)
  486.      jmp ik
  487. char25:
  488.      cmpi.b #89,yaz  ;Y
  489.      bne char26
  490.       move.b picdata+320+24,screen+48+(56*40)
  491.      move.b picdata+360+24,screen+48+(56*41)
  492.      move.b picdata+400+24,screen+48+(56*42)
  493.      move.b picdata+440+24,screen+48+(56*43)
  494.      move.b picdata+480+24,screen+48+(56*44)
  495.      move.b picdata+520+24,screen+48+(56*45)
  496.      move.b picdata+560+24,screen+48+(56*46)
  497.      move.b picdata+600+24,screen+48+(56*47)
  498.      jmp ik    
  499. char26:
  500.      cmpi.b #90,yaz  ;Z
  501.      bne char27
  502.       move.b picdata+320+25,screen+48+(56*40)
  503.      move.b picdata+360+25,screen+48+(56*41)
  504.      move.b picdata+400+25,screen+48+(56*42)
  505.      move.b picdata+440+25,screen+48+(56*43)
  506.      move.b picdata+480+25,screen+48+(56*44)
  507.      move.b picdata+520+25,screen+48+(56*45)
  508.      move.b picdata+560+25,screen+48+(56*46)
  509.      move.b picdata+600+25,screen+48+(56*47)
  510.      jmp ik    
  511. char27:
  512.      cmpi.b #32,yaz  ;SPACE
  513.      bne char32
  514.       move.b picdata,screen+48+(56*40)
  515.      move.b picdata+40,screen+48+(56*41)
  516.      move.b picdata+80,screen+48+(56*42)
  517.      move.b picdata+120,screen+48+(56*43)
  518.      move.b picdata+160,screen+48+(56*44)
  519.      move.b picdata+200,screen+48+(56*45)
  520.      move.b picdata+240,screen+48+(56*46)
  521.      move.b picdata+280,screen+48+(56*47)
  522.      jmp ik    
  523.  
  524. char32:
  525.       cmpi.b #46,yaz  ;. 
  526.      bne char33
  527.       move.b picdata+11,screen+48+(56*40)
  528.      move.b picdata+40+11,screen+48+(56*41)
  529.      move.b picdata+80+11,screen+48+(56*42)
  530.      move.b picdata+120+11,screen+48+(56*43)
  531.      move.b picdata+160+11,screen+48+(56*44)
  532.      move.b picdata+200+11,screen+48+(56*45)
  533.      move.b picdata+240+11,screen+48+(56*46)
  534.      move.b picdata+280+11,screen+48+(56*47)
  535.      jmp ik
  536. char33:
  537.      cmpi.b #48,yaz  ;0 
  538.      bne char34
  539.       move.b picdata+10,screen+48+(56*40)
  540.      move.b picdata+40+10,screen+48+(56*41)
  541.      move.b picdata+80+10,screen+48+(56*42)
  542.      move.b picdata+120+10,screen+48+(56*43)
  543.      move.b picdata+160+10,screen+48+(56*44)
  544.      move.b picdata+200+10,screen+48+(56*45)
  545.      move.b picdata+240+10,screen+48+(56*46)
  546.      move.b picdata+280+10,screen+48+(56*47)
  547.      jmp ik
  548. char34:
  549.      cmpi.b #49,yaz  ;1 
  550.      bne char35
  551.       move.b picdata+1,screen+48+(56*40)
  552.      move.b picdata+40+1,screen+48+(56*41)
  553.      move.b picdata+80+1,screen+48+(56*42)
  554.      move.b picdata+120+1,screen+48+(56*43)
  555.      move.b picdata+160+1,screen+48+(56*44)
  556.      move.b picdata+200+1,screen+48+(56*45)
  557.      move.b picdata+240+1,screen+48+(56*46)
  558.      move.b picdata+280+1,screen+48+(56*47)
  559.      jmp ik    
  560. char35:
  561.      cmpi.b #50,yaz  ;2 
  562.      bne char36
  563.       move.b picdata+2,screen+48+(56*40)
  564.      move.b picdata+40+2,screen+48+(56*41)
  565.      move.b picdata+80+2,screen+48+(56*42)
  566.      move.b picdata+120+2,screen+48+(56*43)
  567.      move.b picdata+160+2,screen+48+(56*44)
  568.      move.b picdata+200+2,screen+48+(56*45)
  569.      move.b picdata+240+2,screen+48+(56*46)
  570.      move.b picdata+280+2,screen+48+(56*47)
  571.      jmp ik        
  572.      
  573. char36:
  574.      cmpi.b #51,yaz  ;3 
  575.      bne char37
  576.       move.b picdata+3,screen+48+(56*40)
  577.      move.b picdata+40+3,screen+48+(56*41)
  578.      move.b picdata+80+3,screen+48+(56*42)
  579.      move.b picdata+120+3,screen+48+(56*43)
  580.      move.b picdata+160+3,screen+48+(56*44)
  581.      move.b picdata+200+3,screen+48+(56*45)
  582.      move.b picdata+240+3,screen+48+(56*46)
  583.      move.b picdata+280+3,screen+48+(56*47)
  584.      jmp ik        
  585. char37:
  586.      cmpi.b #52,yaz  ;4
  587.      bne char38
  588.       move.b picdata+4,screen+48+(56*40)
  589.      move.b picdata+40+4,screen+48+(56*41)
  590.      move.b picdata+80+4,screen+48+(56*42)
  591.      move.b picdata+120+4,screen+48+(56*43)
  592.      move.b picdata+160+4,screen+48+(56*44)
  593.      move.b picdata+200+4,screen+48+(56*45)
  594.      move.b picdata+240+4,screen+48+(56*46)
  595.      move.b picdata+280+4,screen+48+(56*47)
  596.      jmp ik
  597. char38:
  598.      cmpi.b #53,yaz  ;5
  599.      bne char39
  600.       move.b picdata+5,screen+48+(56*40)
  601.      move.b picdata+40+5,screen+48+(56*41)
  602.      move.b picdata+80+5,screen+48+(56*42)
  603.      move.b picdata+120+5,screen+48+(56*43)
  604.      move.b picdata+160+5,screen+48+(56*44)
  605.      move.b picdata+200+5,screen+48+(56*45)
  606.      move.b picdata+240+5,screen+48+(56*46)
  607.      move.b picdata+280+5,screen+48+(56*47)
  608.      jmp ik
  609. char39:
  610.      cmpi.b #54,yaz  ;6
  611.      bne char40
  612.       move.b picdata+6,screen+48+(56*40)
  613.      move.b picdata+40+6,screen+48+(56*41)
  614.      move.b picdata+80+6,screen+48+(56*42)
  615.      move.b picdata+120+6,screen+48+(56*43)
  616.      move.b picdata+160+6,screen+48+(56*44)
  617.      move.b picdata+200+6,screen+48+(56*45)
  618.      move.b picdata+240+6,screen+48+(56*46)
  619.      move.b picdata+280+6,screen+48+(56*47)
  620.      jmp ik     
  621. char40:
  622.      cmpi.b #55,yaz  ;7
  623.      bne char41
  624.       move.b picdata+7,screen+48+(56*40)
  625.      move.b picdata+40+7,screen+48+(56*41)
  626.      move.b picdata+80+7,screen+48+(56*42)
  627.      move.b picdata+120+7,screen+48+(56*43)
  628.      move.b picdata+160+7,screen+48+(56*44)
  629.      move.b picdata+200+7,screen+48+(56*45)
  630.      move.b picdata+240+7,screen+48+(56*46)
  631.      move.b picdata+280+7,screen+48+(56*47)
  632.      jmp ik         
  633. char41:
  634.      cmpi.b #56,yaz  ;8
  635.      bne char42
  636.       move.b picdata+8,screen+48+(56*40)
  637.      move.b picdata+40+8,screen+48+(56*41)
  638.      move.b picdata+80+8,screen+48+(56*42)
  639.      move.b picdata+120+8,screen+48+(56*43)
  640.      move.b picdata+160+8,screen+48+(56*44)
  641.      move.b picdata+200+8,screen+48+(56*45)
  642.      move.b picdata+240+8,screen+48+(56*46)
  643.      move.b picdata+280+8,screen+48+(56*47)
  644.      jmp ik     
  645. char42:
  646.      cmpi.b #57,yaz  ;9
  647.      bne char43
  648.      move.b picdata+9,screen+48+(56*40)
  649.      move.b picdata+40+9,screen+48+(56*41)
  650.      move.b picdata+80+9,screen+48+(56*42)
  651.      move.b picdata+120+9,screen+48+(56*43)
  652.      move.b picdata+160+9,screen+48+(56*44)
  653.      move.b picdata+200+9,screen+48+(56*45)
  654.      move.b picdata+240+9,screen+48+(56*46)
  655.      move.b picdata+280+9,screen+48+(56*47)
  656.      jmp ik    
  657.      
  658. char43:
  659.      cmpi.b #91,yaz  ;` = [
  660.      bne char44
  661.      move.b picdata+13,screen+48+(56*40)
  662.      move.b picdata+40+13,screen+48+(56*41)
  663.      move.b picdata+80+13,screen+48+(56*42)
  664.      move.b picdata+120+13,screen+48+(56*43)
  665.      move.b picdata+160+13,screen+48+(56*44)
  666.      move.b picdata+200+13,screen+48+(56*45)
  667.      move.b picdata+240+13,screen+48+(56*46)
  668.      move.b picdata+280+13,screen+48+(56*47)
  669.      jmp ik     
  670.  
  671. char44:
  672.      cmpi.b #93,yaz  ;' = ]
  673.      bne char47
  674.      move.b picdata+14,screen+48+(56*40)
  675.      move.b picdata+40+14,screen+48+(56*41)
  676.      move.b picdata+80+14,screen+48+(56*42)
  677.      move.b picdata+120+14,screen+48+(56*43)
  678.      move.b picdata+160+14,screen+48+(56*44)
  679.      move.b picdata+200+14,screen+48+(56*45)
  680.      move.b picdata+240+14,screen+48+(56*46)
  681.      move.b picdata+280+14,screen+48+(56*47)
  682.      jmp ik    
  683.  
  684. char47:
  685. ik:     cmpi.b #1,gook
  686.      beq baj
  687.      move.b screen+48+(56*40),screen+47+(56*40)
  688.      move.b screen+48+(56*41),screen+47+(56*41)
  689.      move.b screen+48+(56*42),screen+47+(56*42)
  690.      move.b screen+48+(56*43),screen+47+(56*43)
  691.      move.b screen+48+(56*44),screen+47+(56*44)
  692.      move.b screen+48+(56*45),screen+47+(56*45)
  693.      move.b screen+48+(56*46),screen+47+(56*46)
  694.      move.b screen+48+(56*47),screen+47+(56*47)
  695.      move.b #1,gook
  696.      jmp printy
  697. baj:     move.b #0,gook
  698.      rts
  699. table:
  700.      dc.b 'BLACK BOX PROUDLY PRESENT A FULL SCREEN BLITTER SCROLL. '
  701.      dc.b 'WRITTEN BY AX. [SUCK IT ARSEHOLES] BECAUSE THIS WAS DONE IN 1990'
  702.      dc.b ' BY THE BEST. GREETINGS TO NOBODY. SHIT OFF.            '
  703.      dc.b '[AND ALL OF A SUDDEN HE WAS SOBER AGAIN]'
  704.      dc.b '              KOTZ KOTZ KOTZ KOTZ KOTZ KOTZ KOTZ KOTZ HIC.'
  705.      dc.b '              MY NAME IS NAMRON 7.                        '
  706.      dc.b '[WE HAVENT COME HERE TO PISS ABOUT]                      '
  707.      dc.b 'FELLOW MEMBERS ARE GIZ [GRAPHIX] AND SLUDGE [PSEUDO MUSICIAN].'
  708.      dc.b '             TELEPHONE 0742 325224 FOR ONE LONG INSULT.       '
  709.      dc.b '   STEAMING FAECES TO YOU ALL.                            '
  710.      dc.b ' MUSIC BY CHRONOS.                '
  711.      dc.b 'WRAP THIS SHAT.                                          '
  712.      dc.b '                   '
  713.      dc.b 0
  714.      
  715.      even    
  716.       
  717.      include 'df2:insert/noisetracker insert'
  718.